www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminpicsp\D_edit_acticle.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" Server.ScriptTimeout = 99999 %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <!--#include file=../inc/inc_sys.asp--> <!--#include file=../../inc/ND_class_function.asp--> <!--#include file=inc_lanmu_bl.asp--> <% AJAXshowLoader() %> <style type="text/css"> <!-- .STYLE3 { color: #FFFFFF; font-weight: bold; } .STYLE4 { color: #FF0000; font-weight: bold; } --> </style> <div id="divProcessing" style="width:200px;height:30px;position:absolute;display:none"> <table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" width="100%" height="100%"><tr><td bgcolor=#0650D2><marquee align="middle" behavior="alternate" scrollamount="5" style="font-size:9pt"><font color=#FFFFFF>...正在保存远程图片...请等待...</font></marquee></td></tr></table> </div> <br /> <div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px"> <% sys_content_type=trim(request("sys_content_type")) set rs44g=server.CreateObject("adodb.recordset") rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1 if find_dataw(lanmu_taba,rs44g("id"),2)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if biao="[ND_pic_or_sp_class]" biaog="[ND_userGroup]" biaosp="[ND_pic_or_sp_Special]" biao2="[ND_pic_or_sp]" execute("aaeee=sy"&"s_u"&"r"&"l_"&"g"&"et") execute("aaeee2=sy"&"s_ur"&"l_g"&"et"&"_b") if cstr(aaeee)<>cstr(aaeee2) or aaeee="" then response.redirect "../D_admin"&"_s"&"e.asp" response.end end if set rs22=server.CreateObject("adodb.recordset") rs22.open "select * from "&biao2&" where id="&request("id"),conn,1,1 if sys_content_type="" then %> <script language="javascript"> alert("url参数sys_content_type不能为空"); </script> <% response.end end if %> <script src="../../ND_editor/FCKeditor2_5/FCKeditor.js"></script> <script type="text/javascript"> <!-- function remoteUpload(o) { try{ var strText = GetContentHTML() ; var divProcessing=document.getElementById("divProcessing"); var objField = document.getElementsByName("content_UploadText")[0]; objField.value = strText ; if (o) { divProcessing.style.top = 1000 ; divProcessing.style.left = 200 ; divProcessing.style.display = ""; document.remoteuploadb.submit(); }else{ divProcessing.style.display = "none"; } } catch(e){} } function remoteUploadok() { try{ divProcessing.style.display = "none"; } catch(e){} } function GetContentHTML(){ var strHTML ; try{ var oEditor = FCKeditorAPI.GetInstance('Content') ; strHTML = oEditor.GetXHTML() } catch(e){ strHTML = ''; } return strHTML } var sLinkOriginalFileName = "originalfilename" ; var sLinkSaveFileName = "savefilename" ; var sLinkSavePathFileName = "UploadFileList" ; function addUploadFile(originalFileName, saveFileName, savePathFileName){ doInterfaceUpload(sLinkOriginalFileName, originalFileName); doInterfaceUpload(sLinkSaveFileName, saveFileName); doInterfaceUpload(sLinkSavePathFileName, savePathFileName); } function doInterfaceUpload(strLinkName, strValue){ if (strValue=="") return; if (strLinkName){ var objLinkUpload = document.getElementsByName(strLinkName)[0]; if (objLinkUpload){ if (objLinkUpload.value!=""){ objLinkUpload.value = objLinkUpload.value + "|"; } objLinkUpload.value = objLinkUpload.value + strValue; objLinkUpload.fireEvent("onchange"); } } } function doChange(objText, objDrop){ if (!objDrop) return; //if(document.myform.BriefTopic.selectedIndex<2){ // document.myform.BriefTopic.selectedIndex+=1; //} var str = objText.value; var arr = str.split("|"); var nIndex = objDrop.selectedIndex; objDrop.length=1; for (var i=0; i<arr.length; i++){ objDrop.options[objDrop.length] = new Option(arr[i], arr[i]); } objDrop.selectedIndex = nIndex; } //--> </script> <% function next_cen(pid_list,deepth) set rs=server.CreateObject("adodb.recordset") pppcid="-123" if pid_list<>"" then ppplista=split(pid_list,",") ppplistaubd=ubound(ppplista)-1 pppcid=ppplista(ppplistaubd) end if rs.open "select * from "&biao&" where ((deepth="&deepth&" and ((parent_id_list like '%"&pid_list&"%') or (parent_id='"&pppcid&"'))) and sys_content_type='"&sys_content_type&"') order by orders asc",conn,1,1 if pid_list<>"" then lista=split(pid_list,",") numa=ubound(lista) p_id=cstr(lista(numa)) else p_id=0 end if do while not rs.eof pid_list222=rs("parent_id_list")&","&rs("id")&"," deepth222=rs("deepth")+1 set rs2=server.CreateObject("adodb.recordset") rs2.open "select * from "&biao&" where ((deepth="&deepth222&" and ((parent_id_list like '%"&pid_list222&"%') or (parent_id='"&rs("id")&"'))) and sys_content_type='"&sys_content_type&"') order by orders asc",conn,1,1 if rs2.eof then if pid_list<>"" then lista=split(pid_list,",") numa=ubound(lista) p_id=cstr(lista(numa-1)) else p_id=0 end if if p_id=0 then p_id=-1 'response.write "<level1 id="""&rs("id")&""" parentTypeID="""&p_id&""" caption="""&rs("ClassName")&""" PRI=""1"" explain="""&rs("id")&"""/>"&vbcrlf %> <option value="<%=rs("id")%>" <%if cstr(rs("id"))=cstr(rs22("classid")) then response.write "selected"%>> <%for iiiii1=1 to cint(deepth222) if iiiii1=cint(deepth222) then %> ├<% else %> │<% end if next %><%=rs("classname")%> </option> <% if not rs.eof then rs.movenext if rs.eof or rs.bof then 'response.write "</level0>" 'call next_cen_class(pid_list222,deepth222) exit function else need_benji_next=1 end if else 'response.write "<level0 id="""&rs("id")&""" parentTypeID=""" 'if deepth=0 then response.write "-1" else response.write p_id 'response.write """ caption="""&rs("ClassName")&""" PRI=""2"" explain="""&rs("id")&""" >"&vbcrlf %> <option value="<%=rs("id")%>" <%if cstr(rs("id"))=cstr(rs22("classid")) then response.write "selected"%>> <%for iiiii1=1 to cint(deepth222) if iiiii1=cint(deepth222) then %> ├<% else %> │<% end if next %><%=rs("classname")%> </option> <% call next_cen(pid_list222,deepth222) if not rs.eof then rs.movenext need_benji_next=1 if rs.eof or rs.bof then 'if deepth<>0 then response.write "</level0>" 'call next_cen_class(pid_list222,deepth222) exit function end if end if if need_benji_next=0 then exit do end if need_benji_next=0 loop end function %> <script language= JavaScript> function SelectPic(){ var arr=window.open('../D_select_upload_pic.asp', '', 'titlebar=no, toolbar=no, scrollbar=yes,Width=800, Height=600'); if(arr!=null){ //var ss=arr.split('|'); //document.all.myform.ImageUrl.value=ss[0]; //document.myform.ImageFileList.value=ss[0]; } else { alert("弹出窗口被系统拦截掉了,请修改你系统设置") } } function Selectfile(){ var arr=window.open('../D_select_upload_file.asp', '', 'titlebar=no, toolbar=no, scrollbar=yes,Width=800, Height=600'); if(arr!=null){ //var ss=arr.split('|'); //document.all.myform.ImageUrl.value=ss[0]; //document.myform.ImageFileList.value=ss[0]; } else { alert("弹出窗口被系统拦截掉了,请修改你系统设置") } } </script> <form action="D_chk_edit_acticle.asp" method="post" target="_self" name="myform" id="myform"> <table height="30" width=730 border="0" cellpadding="2" cellspacing="0" bordercolor="#999999" style="border:#999999 1px"> <tr> <td> <table height="925" width=730 border="0" cellpadding="0" cellspacing="0" bordercolor="#999999"> <tr> <td height="30" align="center" class="adminth" colspan="4"><span class="STYLE3">修改 </span></td> </tr> <tr> <td width="144" height="30" align="center" bgcolor="#ffffff"><strong>所属分类:</strong></td> <td width="292" height="30" align="left" bgcolor="#EDF8FE"> <select size="1" name="classid"> <option value="no">请选择分类</option> <% set rseee=server.CreateObject("adodb.recordset") rseee.open "select * from "&biao&" where sys_content_type='"&sys_content_type&"'",conn,1,1 if rseee.eof then %> <script language="javascript"> alert("没有分类,请先添加分类"); </script> <% response.end end if call next_cen("",0) %> </select> <font color="red">*</font></td> <td width="114" align="left" bgcolor="#FFFFFF"><strong>所属专题:</strong></td> <td width="180" align="left" bgcolor="#EDF8FE"> <select size="1" name="spcid"> <% set rseee2=server.CreateObject("adodb.recordset") rseee2.open "select * from "&biaosp&" where sys_content_type='"&sys_content_type&"'",conn,1,1 if rseee2.eof then %> <option value="no">没有专题</option> <% else %> <option value="no">请选择专题</option> <% do while not rseee2.eof %> <option value="<%=rseee2("id")%>" <%if cstr(rseee2("id"))=cstr(rs22("SpecialID")) then response.write "selected" %>><%=rseee2("Specialname")%></option> <% rseee2.movenext loop end if %> </select> </td> </tr> <tr> <td width="144" height="30" align="center" bgcolor="#ffffff"><strong>标题:</strong></td> <td align="left" bgcolor="#EDF8FE" colspan="3"><input name="title" type="text" id="title" size="60" value="<%=Rs22("title")%>"> <font color="red">*</font></td> </tr> <tr> <td width="144" height="30" align="center" bgcolor="#ffffff"><strong><b>标题样式</b>:</strong></td> <td align="left" bgcolor="#EDF8FE" colspan="3"> 颜色: <select size="1" name="ColorMode"> <option value="0" <%if rs22("titleColor")="0" then response.write "selected"%>>请选择颜色</option> <option style="background-color:#FF0000;color: #FF0000" value='#FF0000' <%if rs22("titleColor")="#FF0000" then response.write "selected"%>>#FF0000</option> <option style="background-color:#0000FF;color: #0000FF" value='#0000FF' <%if rs22("titleColor")="#0000FF" then response.write "selected"%>>#0000FF</option> <option style="background-color:#008800;color: #008800" value='#008800' <%if rs22("titleColor")="#008800" then response.write "selected"%>>#008800</option> <option style="background-color:#FFFF00;color: #FFFF00" value='#FFFF00' <%if rs22("titleColor")="#FFFF00" then response.write "selected"%>>#FFFF00</option> <option style="background-color:#9900FF;color: #9900FF" value='#9900FF' <%if rs22("titleColor")="#9900FF" then response.write "selected"%>>#9900FF</option> <option style="background-color:#808080;color: #808080" value='#808080' <%if rs22("titleColor")="#808080" then response.write "selected"%>>#808080</option> <option style="background-color:#00FFFF;color: #00FFFF" value='#00FFFF' <%if rs22("titleColor")="#00FFFF" then response.write "selected"%>>#00FFFF</option> <option style="background-color:#998566;color: #998566" value='#998566' <%if rs22("titleColor")="#998566" then response.write "selected"%>>#998566</option> <option style="background-color:#FFCC00;color: #FFCC00" value='#FFCC00' <%if rs22("titleColor")="#FFCC00" then response.write "selected"%>>#FFCC00</option> </select> 字体: <select size="1" name="FontMode"> <option value="0" <%if rs22("titleFont")="0" then response.write "selected"%>>请选择字体</option> <option value="1" <%if rs22("titleFont")="1" then response.write "selected"%>>粗体</option> <option value="2" <%if rs22("titleFont")="2" then response.write "selected"%>>斜体</option> <option value="3" <%if rs22("titleFont")="3" then response.write "selected"%>>下划线</option> <option value="4" <%if rs22("titleFont")="4" then response.write "selected"%>>粗体+斜体</option> <option value="5" <%if rs22("titleFont")="5" then response.write "selected"%>>粗体+下划线</option> <option value="6" <%if rs22("titleFont")="6" then response.write "selected"%>>斜体+下划线</option> </select> </td> </tr> <tr> <td width="144" height="30" align="center" bgcolor="#ffffff"><strong><b>副 标 题</b>:</strong></td> <td align="left" bgcolor="#EDF8FE" colspan="3"> <input name="subtitle" type="text" id="subtitle" size="60" value="<%=Rs22("sub_title")%>"> </td> </tr> <tr> <td width="144" height="30" align="center" bgcolor="#ffffff"><b>其它选项:</b></td> <td align="left" bgcolor="#EDF8FE" colspan="3"> <input name="isTop" type="checkbox" id="isTop" value="1" <%If Rs22("isTop") <> 0 Then Response.Write (" checked")%>> 文章置顶 <input name="isBest" type="checkbox" id="isBest" value="1" <%If Rs22("is_tuijian") <> 0 Then Response.Write (" checked")%>> 文章推荐 <input name="Forbidac" type="checkbox" id="Forbidac" value="1" <%If Rs22("is_can_pinlun") <> 0 Then Response.Write (" checked")%>> 可以发表评论 <% set rs44g=server.CreateObject("adodb.recordset") rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1 if find_dataw(lanmu_taba,rs44g("id"),7)<>"1" and qx_if_max=0 then %> <input name="issh1" type="checkbox" id="issh1" disabled="disabled" value="1" <%If Rs22("is_shenhe") <> 0 Then Response.Write (" checked")%>> <input name="issh" type="hidden" id="issh" value="<%=Rs22("is_shenhe")%>"> <%else%> <input name="issh" type="checkbox" id="issh" value="1" <%If Rs22("is_shenhe") <> 0 Then Response.Write (" checked")%>> <%end if%> 是否已审核 </td> </tr> <script language="javascript"> function show1(yn){ ss=yn; if (ss=="1"){ document.getElementById("curl1").style.display=''; } else { document.getElementById("curl1").style.display='none'; } } </script> <tr> <td width="144" height="30" align="center" bgcolor="#ffffff"><strong>是否转向连接</strong>: </td> <td height="30" align="left" bgcolor="#EDF8FE" colspan="3"> <input type="radio" name="isoutLink" value="0" onclick="show1(0)" <%if rs22("is_outlink")="0" then response.write "checked"%>> 否 <input type="radio" name="isoutLink" onclick="show1(1)" value="1" <%if rs22("is_outlink")="1" then response.write "checked"%>> 是 </td> </tr> <tr id="curl1" style="display:none"> <td width="144" height="30" align="center" bgcolor="#ffffff"><strong>转向连接URL</strong> </td> <td align="left" bgcolor="#EDF8FE" colspan="3"> <input type="text" name="TurnLinkUrl" size="45" value="<%=Rs22("outlink")%>"> </td> </tr> <script language="javascript"> sss=document.getElementById("curl1"); <%if rs22("is_outlink")="1" then response.write "sss.style.display='';"%> </script> <tr> <td width="144" height="30" align="center" bgcolor="#ffffff"><strong>浏览等级</strong> </td> <td align="left" bgcolor="#EDF8FE" colspan="3"> <select size="1" name="liulanggroup"> <% set rs8=server.CreateObject("adodb.recordset") rs8.open "select * from "&biaog&" order by clng(grades) asc",conn,1,1 do while not rs8.eof %> <option value='<%=rs8("id")%>' <%if cstr(rs8("id"))=rs22("liulang_dengji_group_id") then response.write "selected"%> ><%=rs8("name")%></option> <%rs8.movenext loop %> </select> </td> </tr> <tr> <td width="144" height="30" align="center" bgcolor="#ffffff"><strong><b>所需点数</b>:</strong></td> <td align="left" bgcolor="#EDF8FE" colspan="3"> <input name="PointNum" type="text" size="10" value="<%=Rs22("dianshuo_to_look")%>"> 对匿名用户和管理员无效 </td> </tr> <tr> <td width="144" height="30" align="center" bgcolor="#ffffff"><strong><b>相关作品</b>:</strong></td> <td align="left" bgcolor="#EDF8FE" colspan="3"> <input name="Related" type="text" id="Related" size="60" value="<%=Rs22("xiangguan_keywords_list")%>"> </td> </tr> <tr> <td width="144" height="30" align="center" bgcolor="#ffffff"><b>更新时间:</b></td> <td align="left" bgcolor="#EDF8FE" colspan="3"><input name="WriteTime" type="text" id="WriteTime" size="25" value="<%=Rs22("WriteTime")%>"> <font color="red">*</font></td> </tr> <tr> <td width="144" bgcolor="#ffffff" align="center" ><strong><b>作品来源:</b></strong></td> <td colspan="3" bgcolor="#EDF8FE"><input name="ComeFrom" type="text" size="30" value="<%=Rs22("Comefrom")%>"> <select name="font1" onChange="ComeFrom.value=this.value;"> <option value="" selected>选择来源</option> <option value="本站整理">本站整理</option> <option value="本站原创">本站原创</option> <option value="不详">不详</option> <option value="转载">转载</option> </select></td> </tr> <tr> <td width="144" bgcolor="#ffffff" align="center" ><strong><b>作品作者:</b></strong></td> <td colspan="3" bgcolor="#EDF8FE"><input name="Author" type="text" size="30" value="<%=Rs22("Author_nick")%>"> <select name="font2" onChange="Author.value=this.value;"> <option value="" selected>选择作者</option> <option value="佚名">佚名</option> <option value="本站">本站</option> <option value="不详">不详</option> <option value="未知">未知</option> </select></td> </tr> <tr> <td width="144" height="30" align="center" bgcolor="#ffffff"><b>上传图片或文件:</b></td> <td align="left" bgcolor="#EDF8FE" colspan="3"><iframe name="image" frameborder="0" width='100%' height="69" scrolling="no" src="../D_upfile.asp"></iframe></td> </tr> <tr> <td height="27" align="center" bgcolor="#FFFFFF" class="TableRow2"><strong>显示模式:</strong></td> <td colspan="3" bgcolor="#EDF8FE" class="TableRow1"> <input type="radio" name="showmode" value="0" <%if rs22("showmode")="0" then response.write "checked"%>>不显示 <input type="radio" name="showmode" value="1" <%if rs22("showmode")="1" then response.write "checked"%>> FLASH动画 <input type="radio" name="showmode" value="2" <%if rs22("showmode")="2" then response.write "checked"%>>图片 <input type="radio" name="showmode" value="3" <%if rs22("showmode")="3" then response.write "checked"%>> Media视频或音乐 <input type="radio" name="showmode" value="4" <%if rs22("showmode")="4" then response.write "checked"%>> Real视频或音乐 <input type="radio" name="showmode" value="5" <%if rs22("showmode")="5" then response.write "checked"%>>DCR </td> </tr> <tr> <td height="49" align="center" bgcolor="#FFFFFF" class="TableRow2"><strong>页面显示URL(图片地址或视音频,flash的地址):</strong></td> <td colspan="3" valign="top" bgcolor="#EDF8FE" class="TableRow1"><input name="filePath" type="text" id="filePath" size="50" value="<%=Rs22("showurl")%>"> <input type='button' name='selectfile' value='从已上传文件中选择' onclick='Selectfile()' class=button> <br /> <span class="STYLE4">注意:在"上传图片或文件"里上传文件后,可以拷贝"首页图片"中下拉地址列表中的<br /> 对应地址到上面的输入框</span></td> </tr> <tr> <td width="144" height="30" align="center" bgcolor="#ffffff"><strong>下载地址</strong>: </td> <td height="30" align="left" bgcolor="#EDF8FE" colspan="3"> <input name="dPath" type="text" id="dPath" size="50" value="<%=Rs22("DownAddress")%>"> </td> </tr> <tr> <td width="144" height="30" align="center" bgcolor="#ffffff"><strong>是否显示下载地址</strong>: </td> <td height="30" align="left" bgcolor="#EDF8FE" colspan="3"> <input type="radio" name="isdown" value="0" <%if rs22("is_show_down")="0" then response.write "checked"%>> 否 <input name="isdown" type="radio" value="1" <%if rs22("is_show_down")="1" then response.write "checked"%>> 是 </td> </tr> <tr> <td width="144" height="30" align="center" bgcolor="#ffffff"> <strong><b>作品介绍:</b></strong><br>介绍 分页标签<br>[page_fenye]<br>请注意标签字母小写</td> <td align="left" bgcolor="#EDF8FE" colspan="3"> <textarea name="Content" id="Content" style="display:none"><%=replace(replace_textare_for_editor(Rs22("content")&""),"%",chr(37))%></textarea> <script type="text/javascript"> <!-- var oFCKeditor = new FCKeditor('Content') ; oFCKeditor.BasePath = '../../ND_editor/FCKeditor2_5/' ; oFCKeditor.ToolbarSet = 'Default' ; oFCKeditor.Width = '600' ; oFCKeditor.Height = '500' ; oFCKeditor.Value = '' ; oFCKeditor.ReplaceTextarea() ; var oEditorb; function FCKeditor_OnComplete( editorInstance ) { //alert("3423"); oEditorb = FCKeditorAPI.GetInstance('Content') ; } function updatefck(str){ oEditorb.SetHTML(str); } //--> </script> </td> </tr> <tr> <td width="144" height="34" align="center" bgcolor="#ffffff"><b>保存远程图片:</b></td> <td colspan="3" align="left" valign="top" bgcolor="#EDF8FE"> <input name="AutoRemote" type="button" onClick="remoteUpload(1);" value='开始保存远程图片'> </td> </tr> <tr> <td width="163" height="74" align="center" bgcolor="#ffffff"><b>首页图片:</b></td> <td width="720" colspan="3" align="left" valign="top" bgcolor="#E2F4FE"><input name="ImageUrl" type="text" id="ImageUrl" size="60" value="<%=Rs22("index_page_pic")%>" onpropertychange="document.all.pre.src=this.value;"> <input type="hidden" name="UploadFileList" id="UploadFileList" onChange="doChange(this,document.myform.ImageFileList)" value="<%=Rs22("Uploadfile_list")%>"> <br>直接从上传图片中选择: <% Function Initpics(UploadFileList, ImageUrl) Dim i InitSelect = "<select name='ImageFileList' onChange=""ImageUrl.value=this.value;"">" InitSelect = InitSelect & "<option value=''>不选择首页推荐图片</option>" If Not IsNull(UploadFileList) Then UploadFileList = Split(UploadFileList, "|") For i = 0 To UBound(UploadFileList) If UploadFileList(i) <> "" Then InitSelect = InitSelect & "<option value=""" & UploadFileList(i) & """" If UploadFileList(i) = ImageUrl Then InitSelect = InitSelect & " selected" End If InitSelect = InitSelect & ">" & UploadFileList(i) & "</option>" End If Next End If Initpics = InitSelect & "</select>" End Function response.write Initpics(Rs22("Uploadfile_list"),Rs22("index_page_pic")) %> <input type='button' name='selectpic' value='从已上传图片中选择' onclick='SelectPic()' class="button"> <br /> 预览:<img src="<%=Rs22("index_page_pic")%>" width="80" height="72" id="pre"/></td> </tr> <tr> <td width="144" height="30" align="center" bgcolor="#ffffff"><b>初始点击数:</b></td> <td align="left" bgcolor="#EDF8FE" colspan="3"><input name="AllHits" type="text" id="AllHits" size="15" value="<%=Rs22("Hits")%>"> <font color=red>*</font> <b>被顶次数:</b><input name="dings" type="text" id="dings" size="10" value="<%=Rs22("dings")%>"> <font color=red>*</font> <b>文章星级:</b> <select name="star"> <option value="5"<%If Rs22("xingji") = 5 Then Response.Write (" selected")%>>★★★★★</option> <option value="4"<%If Rs22("xingji") = 4 Then Response.Write (" selected")%>>★★★★</option> <option value="3"<%If Rs22("xingji") = 3 Then Response.Write (" selected")%>>★★★</option> <option value="2"<%If Rs22("xingji") = 2 Then Response.Write (" selected")%>>★★</option> <option value="1"<%If Rs22("xingji") = 1 Then Response.Write (" selected")%>>★</option> </select></td> </tr> <tr> <td height="30" align="center" bgcolor="#D5EFFD" colspan="4"> <input type="submit" value="修改" /></td> </tr> <tr> <td height="80" align="center" bgcolor="#ffffff" colspan="4"></td> </tr> </table> </td> </tr> </table> <input type="hidden" name="sys_content_type" value="<%=request("sys_content_type")%>"/> <input type="hidden" name="id" value="<%=request("id")%>"/> </form> <form name="remoteuploadb" id="remoteuploadb" action="../D_remoteupload.asp" method="post" target="remoteupload"> <input type="hidden" name="content_UploadText" value=""/> </form> <iframe name="remoteupload" width="0" height="0"></iframe> </div> <script language=javascript> AJAXfade(1,'l_list') </script> <% AJAXcloseLoader() %>